@x
def .... = .. tension atleast .9 .. enddef;
def less_rounded = interim autorounding:=1 enddef;
def less_tense = save ...; let ...=.... enddef;

let semi_ =;; let colon_ = :; let endchar_ = endchar;
def iff expr b = if b:let next_=use_it else:let next_=lose_it fi; next_ enddef;
def use_it = let : = restore_colon; enddef;
def restore_colon = let : = colon_; enddef;
def lose_it = let endchar=fi; let ;=restore_endchar semi_ if false enddef;
def restore_endchar=let ;=semi_; let endchar=endchar_; enddef;
@y
%% $\2{def}{\8{....}}={\8{..}}\1{tension}\1{atleast}.9\8{..}\3{enddef};$\par
%% $\2{def}\\{less\_rounded}=\2{interim}\\{autorounding}:=1\3{enddef};$\par
%% $\2{def}\\{less\_tense}=\2{save}\8{...}\,;\ 
%%  \2{let}\8{...}\;=\;\8{....}\3{enddef};$\par
%% \BL
%% $\2{let}\\{semi\_}=\;;\ ;\ \2{let}\\{colon\_}=\?;\ \2{let}\\{endchar\_}=%
%% \3{endchar};$\par
%% $\2{def}\2{iff}\2{expr}b=\2{if}b\?\2{let}\\{next\_}=\\{use\_it}\2{else}\?%
%% \2{let}\\{next\_}=\\{lose\_it}\3{fi};\ \\{next\_}\3{enddef};$\par
%% $\2{def}\\{use\_it}=\2{let}{:}=\\{restore\_colon};\3{enddef};$\par
%% $\2{def}\\{restore\_colon}=\2{let}{:}=\\{colon\_};\3{enddef};$\par
%% $\2{def}\\{lose\_it}=\2{let}\3{endchar}=\3{fi};\ \2{let}{;}=\\{restore%
%% \_endchar}\,{semi\_}\2{if}\5{false}\3{enddef};$\par
%% $\2{def}\\{restore\_endchar}=\2{let}{;}=\\{semi\_};\ \2{let}\3{endchar}=%
%% \\{endchar\_};\3{enddef};$\par
@z